home *** CD-ROM | disk | FTP | other *** search
/ Dictionaries & Language / Dictionaries and Language (Chestnut CD-ROM) (1993).iso / word_p / pcwriteb / workutil.bat < prev   
Encoding:
DOS Batch File  |  1989-09-25  |  5.0 KB  |  163 lines
  1. getyn Do you use Windows, DesqView, or other program using a PIF file?
  2. if errorlevel 1 copy ed.pif %t%ed.pif
  3. getyn ε %t%menuprt.exe
  4. if not errorlevel 1 goto a
  5. getyn Your file MENUPRT.EXE is obsolete; delete it?  Type Y if unsure.
  6. if errorlevel 1 del %t%menuprt.exe
  7. :a
  8. getyn Do you want to copy the 3 printer test files?  Type Y if unsure.
  9. if not errorlevel 1 goto b
  10. copy justify.tst %t%justify.tst
  11. copy chars.tst %t%chars.tst
  12. copy print.tst %t%print.tst
  13. :b
  14. echo .
  15. getyn Do you want to create the Print Control File?  Type Y if unsure.
  16. if not errorlevel 1 goto c
  17. getyn Do you have a laser printer?  Type N if unsure.
  18. if errorlevel 1 goto d
  19. getyn Do you have an HP DeskJet with soft fonts?
  20. if errorlevel 1 copy deskdown.bat %t%deskdown.bat
  21. menuprt1 %t%pr.def
  22. if errorlevel 1 menuprt2 // %t%pr.def
  23. goto e
  24. :d
  25. getyn ≡H0
  26. if errorlevel 1 goto f
  27. getyn ≡W2
  28. if not errorlevel 1 goto f
  29. echo The PC-Write program, help file, and laser printer files won't fit
  30. getyn on one diskette. Insert your Extra disk in drive %t%, type Y.
  31. if not errorlevel 1 goto z
  32. :f
  33. getyn Do you have an HP LaserJet (or compatible) with soft fonts?
  34. if not errorlevel 1 goto g
  35. copy hpdown.bat %t%hpdown.bat
  36. echo (you may want to get the PC-Write Font Selector Program.)
  37. :g
  38. getyn Do you have a Quadram QuadLaser and soft fonts?
  39. if errorlevel 1 copy quaddown.bat %t%quaddown.bat
  40. getyn Do you have any printer using Adobe PostScript?
  41. if not errorlevel 1 goto h
  42. copy psdown.ini %t%pr.ini
  43. copy psdown.fin %t%pr.fin
  44. :h
  45. menulze %t%pr.def
  46. :e
  47. getyn ≡M0
  48. if errorlevel 1 goto c
  49. echo  .X:10 >> %t%pr.def
  50. echo  .XT:6 >> %t%pr.def
  51. echo  .XB:6 >> %t%pr.def
  52. :c
  53. rem getyn Do you want the Pound sign "£" to print using code 35 ('#')?
  54. rem if errorlevel 1 echo $156=35 >> %t%pr.def
  55. echo .
  56. getyn Do you want to use your "mouse" with PC-Write? Type N if unsure.
  57. if not errorlevel 1 goto i
  58. echo The mouse files will be copied, but consult the User's
  59. echo Guide or Quick Guide for complete setup instructions.
  60. getyn Do you have a Mouse Systems mouse?
  61. if not errorlevel 1 goto j
  62. copy msysmice.msc %t%msysmice.msc
  63. copy msysmice.com %t%msysmice.com
  64. :j
  65. getyn Do you have a LogiTech mouse?
  66. if not errorlevel 1 goto k
  67. copy logimice.def %t%logimice.def
  68. copy logimice.mnu %t%logimice.mnu
  69. :k
  70. getyn Do you have a Microsoft mouse?
  71. if not errorlevel 1 goto l
  72. copy micsmice.def %t%micsmice.def
  73. copy micsmice.com %t%micsmice.com
  74. copy micsmice.mnu %t%micsmice.mnu
  75. echo &J:8 >> %t%ed.def
  76. :l
  77. :i
  78. getyn ≡B0
  79. if errorlevel 1 goto m
  80. getyn Insert blank disk for Utility Disk backup in drive %d%, type Y.
  81. if not errorlevel 1 goto m
  82. echo on
  83. copy *.* %d%
  84. echo off
  85. :m
  86. :p
  87. if exist words.mas goto n
  88. getyn Do you have a copy of the PC-Write Reference diskette?
  89. if errorlevel 1 goto o
  90. echo Without a reference diskette, you cannot check spelling,
  91. echo or print (or type) the on-disk Tutorial or Quick Guide.
  92. echo However, you can do normal editing, and basic printing.
  93. goto z
  94. :o
  95. getyn Insert PC-Write Reference diskette in default drive, type Y.
  96. if not errorlevel 1 goto z
  97. goto p
  98. :n
  99. echo .
  100. getyn ≡B3
  101. if not errorlevel 1 goto q
  102. getyn Insert blank disk for Reference Disk backup in drive %d%, type Y.
  103. if not errorlevel 1 goto q
  104. echo on
  105. copy *.* %d%
  106. echo off
  107. :q
  108. echo The master word list is a large (110 KB) file used to check spelling.
  109. echo Your computer must have at least 448 KB to use this master word list.
  110. getyn Do you want this word list?  Type Y if unsure.
  111. if not errorlevel 1 goto r
  112. getyn ≡W2
  113. if not errorlevel 1 goto s
  114. echo The PC-Write program and word list file won't fit on
  115. getyn one diskette. Insert your Extra disk in drive %t%, type Y.
  116. if not errorlevel 1 goto z
  117. :s
  118. copy words.mas %t%words.mas
  119. :r
  120. echo .
  121. echo Smaller help files for beginners and advanced users are available.
  122. getyn Do you want either of these two help files?  Type N if unsure.
  123. if not errorlevel 1 goto t
  124. getyn ≡H0
  125. if errorlevel 1 goto u
  126. echo You asked for the main help file earlier. If you get a small help
  127. getyn file, this main help won't be available. Is this ok?
  128. if not errorlevel 1 goto t
  129. :u
  130. getyn ≡W2
  131. if not errorlevel 1 goto v
  132. getyn Insert your Work Disk in drive %t%, type Y.
  133. if not errorlevel 1 goto z
  134. :v
  135. getyn Type Y to get beginner's help, or N to get advanced help
  136. if     errorlevel 1 copy edbegin.hlp %t%ed.hlp
  137. if not errorlevel 1 copy edquick.hlp %t%ed.hlp
  138. :t
  139. echo .
  140. echo PC-Write Work Disk Is Now Complete
  141. echo .
  142. echo Leave the Reference disk in the default drive to
  143. echo   type and/or print the Tutorial and Quick Guide.
  144. echo Then place all original and backup diskettes in a safe place.
  145. set t=
  146. set d=
  147. set b=
  148. set w=
  149. set h=
  150. set m=
  151. getyn Do you want to type and/or print the Tutorial and Quick Guide?
  152. if not errorlevel 1 goto z
  153. echo Note: Type Ctl-C at any time to stop typing or printing.
  154. getyn Do you want to see them on your screen?
  155. if not errorlevel 1 goto w
  156. typeman
  157. :w
  158. getyn Do you want to print the Tutorial and Quick Guide?
  159. if not errorlevel 1 goto z
  160. getyn Is your printer ready, with 95 pages of paper?
  161. printman
  162. :z
  163.